From 927f7d2fce3b721cc4063a62d670e7aef66990bf Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 19 Feb 2001 17:53:04 +0000
Subject: [PATCH] (widget-button-click): Save the selected window around the
 code handling clicks on buttons.

---
 lisp/wid-edit.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index e28114eeadd..dc7e28b4ed1 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -861,7 +861,7 @@ Recommended as a parent keymap for modes using widgets.")
 	    ;; Mouse click on a widget button.  Do the following
 	    ;; in a save-excursion so that the click on the button
 	    ;; doesn't change point.
-	    (progn
+	    (save-selected-window
 	      (save-excursion
 		(mouse-set-point event)
 		(let* ((overlay (widget-get button :button-overlay))
-- 
2.30.2